object DMprinc: TDMprinc
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Height = 570
  Width = 812
  object ZConnection1: TZConnection
    Protocol = 'firebird-2.0'
    HostName = 'LOCALHOST'
    Database = 'C:\sistemas\ger\bd\GER.FDB'
    User = 'SYSDBA'
    Password = 'masterkey'
    TransactIsolationLevel = tiReadCommitted
    Left = 32
    Top = 40
  end
  object QueryAux: TZQuery
    Connection = ZConnection1
    Params = <>
    Left = 24
    Top = 208
  end
  object QueryCliente: TZQuery
    Connection = ZConnection1
    SortedFields = 'NOME'
    BeforePost = QueryClienteBeforePost
    OnNewRecord = QueryClienteNewRecord
    SQL.Strings = (
      'select * from cliente')
    Params = <>
    IndexFieldNames = 'NOME Asc'
    Left = 120
    Top = 8
    object QueryClienteCODCLIENTE: TIntegerField
      FieldName = 'CODCLIENTE'
      Required = True
    end
    object QueryClienteNOME: TStringField
      FieldName = 'NOME'
      Size = 60
    end
    object QueryClienteCNPJ: TStringField
      FieldName = 'CNPJ'
    end
    object QueryClienteFONE: TStringField
      FieldName = 'FONE'
      EditMask = '(99)9999-9999;0'
      Size = 12
    end
    object QueryClienteFAX: TStringField
      FieldName = 'FAX'
      EditMask = '(99)9999-9999;0'
      Size = 12
    end
    object QueryClienteCELULAR: TStringField
      FieldName = 'CELULAR'
      EditMask = '(99)9999-9999;0'
      Size = 12
    end
    object QueryClienteENDERECO: TStringField
      FieldName = 'ENDERECO'
      Size = 50
    end
    object QueryClienteBAIRRO: TStringField
      FieldName = 'BAIRRO'
      Size = 30
    end
    object QueryClienteCEP: TStringField
      FieldName = 'CEP'
      EditMask = '99999-999;0'
      Size = 10
    end
    object QueryClienteCOMPLEMENTO: TStringField
      FieldName = 'COMPLEMENTO'
      Size = 60
    end
    object QueryClienteCODCIDADE: TIntegerField
      FieldName = 'CODCIDADE'
    end
    object QueryClienteIE: TStringField
      FieldName = 'IE'
    end
    object QueryClienteDELETADO: TSmallintField
      FieldName = 'DELETADO'
    end
    object QueryClienteCODCLIENTEPRINCIPAL: TIntegerField
      FieldName = 'CODCLIENTEPRINCIPAL'
    end
    object QueryClienteCONTATO: TStringField
      FieldName = 'CONTATO'
      Size = 50
    end
    object QueryClienteCODUSUARIOWEB: TIntegerField
      FieldName = 'CODUSUARIOWEB'
    end
    object QueryClienteSEGURADORA: TStringField
      FieldName = 'SEGURADORA'
    end
    object QueryClienteCONTATOSEGURADORA: TStringField
      FieldName = 'CONTATOSEGURADORA'
      Size = 50
    end
    object QueryClienteFONESEGURADORA: TStringField
      FieldName = 'FONESEGURADORA'
      EditMask = '(99)9999-9999;0'
      Size = 12
    end
    object QueryClienteSENHACOMUNICACAO: TStringField
      FieldName = 'SENHACOMUNICACAO'
    end
    object QueryClienteEXIGEKM: TSmallintField
      FieldName = 'EXIGEKM'
    end
    object QueryClienteVALORVIAGEM: TFloatField
      FieldName = 'VALORVIAGEM'
      currency = True
    end
    object QueryClienteAVALIACAOMOTORISTA: TSmallintField
      FieldName = 'AVALIACAOMOTORISTA'
    end
    object QueryClienteCONTROLANCV: TSmallintField
      FieldName = 'CONTROLANCV'
    end
    object QueryClienteLOGO: TStringField
      FieldName = 'LOGO'
      Size = 50
    end
    object QueryClienteMONITORACARGA: TSmallintField
      FieldName = 'MONITORACARGA'
    end
    object QueryClienteMONITORAVEICULO: TSmallintField
      FieldName = 'MONITORAVEICULO'
    end
    object QueryClienteVALORDIARIACONTA: TFloatField
      FieldName = 'VALORDIARIACONTA'
      currency = True
    end
    object QueryClienteATIVO: TSmallintField
      FieldName = 'ATIVO'
    end
    object QueryClienteETIQUETA: TSmallintField
      FieldName = 'ETIQUETA'
    end
    object QueryClienteCODCIDADECOB: TIntegerField
      FieldName = 'CODCIDADECOB'
    end
    object QueryClienteENDERECOCOB: TStringField
      FieldName = 'ENDERECOCOB'
      Size = 100
    end
    object QueryClienteBAIRROCOB: TStringField
      FieldName = 'BAIRROCOB'
      Size = 50
    end
    object QueryClienteCEPCOB: TStringField
      FieldName = 'CEPCOB'
      EditMask = '99999-999;0'
      Size = 10
    end
    object QueryClienteOBRVALORMERCADORIA: TSmallintField
      FieldName = 'OBRVALORMERCADORIA'
    end
    object QueryClienteOBRNUMEROCTRC: TSmallintField
      FieldName = 'OBRNUMEROCTRC'
    end
    object QueryClienteOBRNOTAFISCAL: TSmallintField
      FieldName = 'OBRNOTAFISCAL'
    end
    object QueryClienteOBRCONSULTAMOTORISTA: TSmallintField
      FieldName = 'OBRCONSULTAMOTORISTA'
    end
    object QueryClienteEMAIL: TStringField
      FieldName = 'EMAIL'
      Size = 50
    end
  end
  object QueryCidade: TZQuery
    Connection = ZConnection1
    SortedFields = 'NOME'
    BeforePost = QueryCidadeBeforePost
    SQL.Strings = (
      'select * from cidade')
    Params = <>
    IndexFieldNames = 'NOME Asc'
    Left = 120
    Top = 136
    object QueryCidadeCODCIDADE: TIntegerField
      FieldName = 'CODCIDADE'
      Required = True
    end
    object QueryCidadeNOME: TStringField
      FieldName = 'NOME'
      Size = 40
    end
    object QueryCidadeUF: TStringField
      FieldName = 'UF'
      Size = 2
    end
    object QueryCidadeDELETADO: TSmallintField
      FieldName = 'DELETADO'
    end
    object QueryCidadeLATITUDE: TFloatField
      FieldName = 'LATITUDE'
    end
    object QueryCidadeLONGITUDE: TFloatField
      FieldName = 'LONGITUDE'
    end
  end
  object QueryGrupoDesp: TZQuery
    Connection = ZConnection1
    SortedFields = 'DESCRICAO'
    SortType = stDescending
    BeforePost = QueryGrupoDespBeforePost
    OnNewRecord = QueryGrupoDespNewRecord
    SQL.Strings = (
      'select * from grupo where despesa = -1')
    Params = <>
    IndexFieldNames = 'DESCRICAO Desc'
    Left = 328
    Top = 8
    object QueryGrupoDespCODGRUPO: TIntegerField
      FieldName = 'CODGRUPO'
      Required = True
    end
    object QueryGrupoDespDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      Size = 50
    end
    object QueryGrupoDespDESPESA: TSmallintField
      FieldName = 'DESPESA'
    end
    object QueryGrupoDespDELETADO: TSmallintField
      FieldName = 'DELETADO'
    end
  end
  object QueryVeiculo: TZQuery
    Connection = ZConnection1
    SortedFields = 'PLACA'
    BeforePost = QueryVeiculoBeforePost
    AfterPost = QueryVeiculoAfterPost
    OnNewRecord = QueryVeiculoNewRecord
    SQL.Strings = (
      'select * from veiculo'
      'where cavalo = -1')
    Params = <>
    IndexFieldNames = 'PLACA Asc'
    Left = 504
    Top = 16
    object QueryVeiculoCODVEICULO: TIntegerField
      FieldName = 'CODVEICULO'
      Required = True
    end
    object QueryVeiculoPLACA: TStringField
      FieldName = 'PLACA'
      EditMask = 'LLL-0000'
      Size = 8
    end
    object QueryVeiculoRENAVAM: TStringField
      FieldName = 'RENAVAM'
      Size = 50
    end
    object QueryVeiculoCHASSI: TStringField
      FieldName = 'CHASSI'
      Size = 50
    end
    object QueryVeiculoANOFAB: TSmallintField
      FieldName = 'ANOFAB'
    end
    object QueryVeiculoANOMOD: TSmallintField
      FieldName = 'ANOMOD'
    end
    object QueryVeiculoCODMARCA: TIntegerField
      FieldName = 'CODMARCA'
    end
    object QueryVeiculoCODTIPOVEICULO: TIntegerField
      FieldName = 'CODTIPOVEICULO'
    end
    object QueryVeiculoCODMODELO: TIntegerField
      FieldName = 'CODMODELO'
    end
    object QueryVeiculoCODCOR: TIntegerField
      FieldName = 'CODCOR'
    end
    object QueryVeiculoCODMOTORISTA: TIntegerField
      FieldName = 'CODMOTORISTA'
    end
    object QueryVeiculoDELETADO: TSmallintField
      FieldName = 'DELETADO'
    end
    object QueryVeiculoCAVALO: TSmallintField
      FieldName = 'CAVALO'
    end
    object QueryVeiculoLIMITEPESO: TIntegerField
      FieldName = 'LIMITEPESO'
    end
    object QueryVeiculoCODCARRETA1: TIntegerField
      FieldName = 'CODCARRETA1'
    end
    object QueryVeiculoCODCARRETA2: TIntegerField
      FieldName = 'CODCARRETA2'
    end
    object QueryVeiculoCODCLIENTE: TIntegerField
      FieldName = 'CODCLIENTE'
    end
    object QueryVeiculoCODCIDADE: TIntegerField
      FieldName = 'CODCIDADE'
    end
    object QueryVeiculoTEMPERATURA: TFloatField
      FieldName = 'TEMPERATURA'
    end
    object QueryVeiculoPARADO2: TSmallintField
      FieldName = 'PARADO'
    end
    object QueryVeiculoCODUSUARIOWEB: TIntegerField
      FieldName = 'CODUSUARIOWEB'
    end
    object QueryVeiculoVALORMENSAL: TFloatField
      FieldName = 'VALORMENSAL'
      currency = True
    end
    object QueryVeiculoCODRASTREADOR: TIntegerField
      FieldName = 'CODRASTREADOR'
    end
    object QueryVeiculoPROPRIO: TSmallintField
      FieldName = 'PROPRIO'
    end
    object QueryVeiculoDATAINCLUSAO: TDateField
      FieldName = 'DATAINCLUSAO'
    end
    object QueryVeiculoCODCARRETA3: TIntegerField
      FieldName = 'CODCARRETA3'
    end
    object QueryVeiculoMCT: TStringField
      FieldName = 'MCT'
    end
    object QueryVeiculoDATAALT: TDateTimeField
      FieldName = 'DATAALT'
    end
    object QueryVeiculoUSUARIOALT: TStringField
      FieldName = 'USUARIOALT'
    end
  end
  object QueryEmpresaProp: TZQuery
    Connection = ZConnection1
    SortedFields = 'NOME'
    BeforePost = QueryEmpresaPropBeforePost
    SQL.Strings = (
      'select * from empresa')
    Params = <>
    IndexFieldNames = 'NOME Asc'
    Left = 208
    Top = 64
    object QueryEmpresaPropCODEMPRESA: TIntegerField
      FieldName = 'CODEMPRESA'
      Required = True
    end
    object QueryEmpresaPropNOME: TStringField
      FieldName = 'NOME'
      Size = 50
    end
    object QueryEmpresaPropCNPJ: TStringField
      FieldName = 'CNPJ'
    end
    object QueryEmpresaPropFONE: TStringField
      FieldName = 'FONE'
      EditMask = '(99)9999-9999;0'
      Size = 12
    end
    object QueryEmpresaPropFAX: TStringField
      FieldName = 'FAX'
      EditMask = '(99)9999-9999;0'
      Size = 12
    end
    object QueryEmpresaPropENDERECO: TStringField
      FieldName = 'ENDERECO'
      Size = 100
    end
    object QueryEmpresaPropBAIRRO: TStringField
      FieldName = 'BAIRRO'
    end
    object QueryEmpresaPropCEP: TStringField
      FieldName = 'CEP'
      EditMask = '99999-999;0'
      Size = 10
    end
    object QueryEmpresaPropCOMPLEMENTO: TIntegerField
      FieldName = 'COMPLEMENTO'
    end
    object QueryEmpresaPropCODCIDADE: TIntegerField
      FieldName = 'CODCIDADE'
    end
    object QueryEmpresaPropDELETADO: TSmallintField
      FieldName = 'DELETADO'
    end
  end
  object ZConnectionLog: TZConnection
    Protocol = 'firebird-2.0'
    HostName = 'LOCALHOST'
    Database = 'C:\gerlog.fdb'
    User = 'SYSDBA'
    Password = 'masterkey'
    TransactIsolationLevel = tiReadCommitted
    Left = 32
    Top = 80
  end
  object QueryParametro: TZQuery
    Connection = ZConnection1
    SQL.Strings = (
      'select  * from parametro')
    Params = <>
    Left = 688
    Top = 360
    object QueryParametroLOGO1: TStringField
      FieldName = 'LOGO1'
      Size = 50
    end
    object QueryParametroLOGO: TStringField
      FieldName = 'LOGO'
      Required = True
      Size = 50
    end
    object QueryParametroVALIDADE: TDateField
      FieldName = 'VALIDADE'
    end
    object QueryParametroVERSAO: TSmallintField
      FieldName = 'VERSAO'
    end
    object QueryParametroNOMEEMPRESA: TStringField
      FieldName = 'NOMEEMPRESA'
    end
    object QueryParametroCHAVE: TStringField
      FieldName = 'CHAVE'
      Size = 50
    end
    object QueryParametroPORCISS: TFloatField
      FieldName = 'PORCISS'
    end
    object QueryParametroINTERVALOMAXIMO: TTimeField
      FieldName = 'INTERVALOMAXIMO'
      EditMask = '99:99:99;1;_'
    end
    object QueryParametroCODTELEMONITORADO: TIntegerField
      FieldName = 'CODTELEMONITORADO'
    end
    object QueryParametroCODRASTREADO: TIntegerField
      FieldName = 'CODRASTREADO'
    end
    object QueryParametroINTERVALOTELEMONITORADO: TTimeField
      FieldName = 'INTERVALOTELEMONITORADO'
    end
    object QueryParametroCONTROLAPARADO: TStringField
      FieldName = 'CONTROLAPARADO'
      Size = 1
    end
    object QueryParametroLIMITEDIASFIMVIAGEM: TIntegerField
      FieldName = 'LIMITEDIASFIMVIAGEM'
    end
  end
  object QueryMarca: TZQuery
    Connection = ZConnection1
    SortedFields = 'DESCRICAO'
    BeforePost = QueryMarcaBeforePost
    SQL.Strings = (
      'select * from marca')
    Params = <>
    IndexFieldNames = 'DESCRICAO Asc'
    Left = 688
    Top = 240
    object QueryMarcaCODMARCA: TIntegerField
      FieldName = 'CODMARCA'
      Required = True
    end
    object QueryMarcaDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      Required = True
      Size = 30
    end
    object QueryMarcaDELETADO: TSmallintField
      FieldName = 'DELETADO'
    end
  end
  object QueryModelo: TZQuery
    Connection = ZConnection1
    SortedFields = 'DESCRICAO'
    BeforePost = QueryModeloBeforePost
    SQL.Strings = (
      'select * from modelo')
    Params = <>
    IndexFieldNames = 'DESCRICAO Asc'
    Left = 696
    Top = 304
    object QueryModeloCODMODELO: TIntegerField
      FieldName = 'CODMODELO'
      Required = True
    end
    object QueryModeloDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      Required = True
      Size = 30
    end
    object QueryModeloDELETADO: TSmallintField
      FieldName = 'DELETADO'
    end
  end
  object QueryCor: TZQuery
    Connection = ZConnection1
    SortedFields = 'DESCRICAO'
    BeforePost = QueryCorBeforePost
    SQL.Strings = (
      'select * from cor')
    Params = <>
    IndexFieldNames = 'DESCRICAO Asc'
    Left = 120
    Top = 216
    object QueryCorCODCOR: TIntegerField
      FieldName = 'CODCOR'
      Required = True
    end
    object QueryCorDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      Size = 25
    end
    object QueryCorDELETADO: TSmallintField
      FieldName = 'DELETADO'
    end
  end
  object QueryTipoVeiculo: TZQuery
    Connection = ZConnection1
    SortedFields = 'DESCRICAO'
    BeforePost = QueryTipoVeiculoBeforePost
    SQL.Strings = (
      'select * from tipoveiculo')
    Params = <>
    IndexFieldNames = 'DESCRICAO Asc'
    Left = 504
    Top = 72
    object QueryTipoVeiculoCODTIPOVEICULO: TIntegerField
      FieldName = 'CODTIPOVEICULO'
      Required = True
    end
    object QueryTipoVeiculoDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      Size = 25
    end
    object QueryTipoVeiculoDELETADO: TSmallintField
      FieldName = 'DELETADO'
    end
  end
  object QueryCondPag: TZQuery
    Connection = ZConnection1
    SortedFields = 'PRAZO'
    BeforePost = QueryCondPagBeforePost
    SQL.Strings = (
      'select * from condpag')
    Params = <>
    IndexFieldNames = 'PRAZO Asc'
    Left = 120
    Top = 176
    object QueryCondPagCODCONDPAG: TIntegerField
      FieldName = 'CODCONDPAG'
      Required = True
    end
    object QueryCondPagNUMPARCELA: TIntegerField
      FieldName = 'NUMPARCELA'
    end
    object QueryCondPagPRAZO: TStringField
      FieldName = 'PRAZO'
      EditMask = '999/999/999/999/999/999/999/999;1;_'
      Size = 50
    end
    object QueryCondPagTIPO: TStringField
      FieldName = 'TIPO'
      Size = 1
    end
  end
  object QueryItemDesp: TZQuery
    Connection = ZConnection1
    SortedFields = 'DESCRICAO'
    SortType = stDescending
    BeforePost = QueryItemDespBeforePost
    OnNewRecord = QueryItemDespNewRecord
    SQL.Strings = (
      'select * from item where despesa = -1')
    Params = <>
    IndexFieldNames = 'DESCRICAO Desc'
    Left = 416
    Top = 16
    object QueryItemDespCODITEM: TIntegerField
      FieldName = 'CODITEM'
      Required = True
    end
    object QueryItemDespCODGRUPO: TIntegerField
      FieldName = 'CODGRUPO'
    end
    object QueryItemDespDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      Size = 50
    end
    object QueryItemDespDESPESA: TSmallintField
      FieldName = 'DESPESA'
    end
    object QueryItemDespDELETADO: TSmallintField
      FieldName = 'DELETADO'
    end
    object QueryItemDespVALOR: TFloatField
      FieldName = 'VALOR'
      DisplayFormat = '###,##0.0000'
      EditFormat = '###,##0.0000'
    end
  end
  object QueryFornecedor: TZQuery
    Connection = ZConnection1
    SortedFields = 'NOME'
    BeforePost = QueryFornecedorBeforePost
    SQL.Strings = (
      'SELECT * FROM FORNECEDOR')
    Params = <>
    IndexFieldNames = 'NOME Asc'
    Left = 216
    Top = 120
    object QueryFornecedorCODFORNECEDOR: TIntegerField
      FieldName = 'CODFORNECEDOR'
      Required = True
    end
    object QueryFornecedorNOME: TStringField
      FieldName = 'NOME'
      Required = True
      Size = 60
    end
    object QueryFornecedorCNPJ: TStringField
      FieldName = 'CNPJ'
    end
    object QueryFornecedorFONE: TStringField
      FieldName = 'FONE'
      EditMask = '(99)9999-9999;0'
      Size = 12
    end
    object QueryFornecedorFAX: TStringField
      FieldName = 'FAX'
      EditMask = '(99)9999-9999;0'
      Size = 12
    end
    object QueryFornecedorCELULAR: TStringField
      FieldName = 'CELULAR'
      EditMask = '(99)9999-9999;0'
      Size = 12
    end
    object QueryFornecedorENDERECO: TStringField
      FieldName = 'ENDERECO'
      Size = 50
    end
    object QueryFornecedorBAIRRO: TStringField
      FieldName = 'BAIRRO'
      Size = 30
    end
    object QueryFornecedorCEP: TStringField
      FieldName = 'CEP'
      OnValidate = QueryFornecedorCEPValidate
      EditMask = '99999-999;0'
      Size = 10
    end
    object QueryFornecedorCOMPLEMENTO: TStringField
      FieldName = 'COMPLEMENTO'
      Size = 60
    end
    object QueryFornecedorCODCIDADE: TIntegerField
      FieldName = 'CODCIDADE'
    end
    object QueryFornecedorIE: TStringField
      FieldName = 'IE'
    end
    object QueryFornecedorDELETADO: TSmallintField
      FieldName = 'DELETADO'
    end
    object QueryFornecedorCONTATO: TStringField
      FieldName = 'CONTATO'
      Size = 50
    end
    object QueryFornecedorVALOR: TFloatField
      FieldName = 'VALOR'
      currency = True
    end
    object QueryFornecedorDATAVENCIMENTO: TDateField
      FieldName = 'DATAVENCIMENTO'
    end
    object QueryFornecedorCODFUNCIONARIO: TIntegerField
      FieldName = 'CODFUNCIONARIO'
    end
  end
  object QueryComboio: TZQuery
    Connection = ZConnection1
    SortedFields = 'CODCOMBOIO'
    AfterInsert = QueryComboioAfterInsert
    AfterEdit = QueryComboioAfterEdit
    BeforePost = QueryComboioBeforePost
    OnNewRecord = QueryComboioNewRecord
    SQL.Strings = (
      'select * from comboio')
    Params = <>
    IndexFieldNames = 'CODCOMBOIO Asc'
    Left = 120
    Top = 96
    object QueryComboioCODCOMBOIO: TIntegerField
      FieldName = 'CODCOMBOIO'
      Required = True
    end
    object QueryComboioKMPREVISTO: TIntegerField
      FieldName = 'KMPREVISTO'
    end
    object QueryComboioCODCLIENTE: TIntegerField
      FieldName = 'CODCLIENTE'
    end
    object QueryComboioCODRASTREADOR: TIntegerField
      FieldName = 'CODRASTREADOR'
    end
    object QueryComboioDATA: TDateTimeField
      FieldName = 'DATA'
      EditMask = '99/99/9999 99:99:99;1'
    end
    object QueryComboioPREVISAOSAIDA: TDateTimeField
      FieldName = 'PREVISAOSAIDA'
      EditMask = '99/99/9999 99:99:99;1'
    end
    object QueryComboioCODDESTINO: TIntegerField
      FieldName = 'CODDESTINO'
    end
    object QueryComboioCODFATURA: TIntegerField
      FieldName = 'CODFATURA'
    end
    object QueryComboioCODORIGEM: TIntegerField
      FieldName = 'CODORIGEM'
    end
    object QueryComboioVALOR: TFloatField
      FieldName = 'VALOR'
      currency = True
    end
    object QueryComboioVALORKM: TFloatField
      FieldName = 'VALORKM'
    end
    object QueryComboioPREVISAOCHEGADA: TDateTimeField
      FieldName = 'PREVISAOCHEGADA'
      EditMask = '99/99/9999 99:99:99;1'
    end
    object QueryComboioDATACHEGADA: TDateTimeField
      FieldName = 'DATACHEGADA'
      EditMask = '99/99/9999 99:99:99;1'
    end
    object QueryComboioEXPORTADO: TSmallintField
      FieldName = 'EXPORTADO'
    end
    object QueryComboioCOMBOIOCLIENTE: TStringField
      FieldName = 'COMBOIOCLIENTE'
    end
    object QueryComboioUSUARIODIG: TStringField
      FieldName = 'USUARIODIG'
    end
    object QueryComboioSITE: TSmallintField
      FieldName = 'SITE'
    end
    object QueryComboioESPECIAL: TSmallintField
      FieldName = 'ESPECIAL'
    end
    object QueryComboioCODROTA: TIntegerField
      FieldName = 'CODROTA'
    end
    object QueryComboioCODTIPOOPERACAO: TIntegerField
      FieldName = 'CODTIPOOPERACAO'
    end
    object QueryComboioCODLOCALENTREGA: TIntegerField
      FieldName = 'CODLOCALENTREGA'
    end
    object QueryComboioCODLOCALCOLETA: TIntegerField
      FieldName = 'CODLOCALCOLETA'
    end
    object QueryComboioSTATUS: TSmallintField
      FieldName = 'STATUS'
    end
    object QueryComboioHORA: TTimeField
      FieldName = 'HORA'
      EditMask = '!99:99;1;_'
    end
  end
  object QueryMotorista: TZQuery
    Connection = ZConnection1
    SortedFields = 'NOME'
    BeforePost = QueryMotoristaBeforePost
    SQL.Strings = (
      'select * from motorista')
    Params = <>
    IndexFieldNames = 'NOME Asc'
    Left = 320
    Top = 120
    object QueryMotoristaCODMOTORISTA: TIntegerField
      FieldName = 'CODMOTORISTA'
      Required = True
    end
    object QueryMotoristaCELULAR: TStringField
      FieldName = 'CELULAR'
      EditMask = '(99)9999-9999;0'
      Size = 12
    end
    object QueryMotoristaFONE1: TStringField
      FieldName = 'FONE1'
      EditMask = '(99)9999-9999;0'
      Size = 12
    end
    object QueryMotoristaFONE2: TStringField
      FieldName = 'FONE2'
      EditMask = '(99)9999-9999;0'
      Size = 12
    end
    object QueryMotoristaNOME: TStringField
      FieldName = 'NOME'
      Size = 50
    end
    object QueryMotoristaENDERECO: TStringField
      FieldName = 'ENDERECO'
      Size = 100
    end
    object QueryMotoristaVALIDADECNH: TDateField
      FieldName = 'VALIDADECNH'
    end
    object QueryMotoristaDATANASCIMENTO: TDateField
      FieldName = 'DATANASCIMENTO'
    end
    object QueryMotoristaDATAADMISSAO: TDateField
      FieldName = 'DATAADMISSAO'
    end
    object QueryMotoristaBAIRRO: TStringField
      FieldName = 'BAIRRO'
    end
    object QueryMotoristaCEP: TStringField
      FieldName = 'CEP'
      OnValidate = QueryMotoristaCEPValidate
      EditMask = '99999-999;0'
      Size = 10
    end
    object QueryMotoristaCODCIDADE: TIntegerField
      FieldName = 'CODCIDADE'
    end
    object QueryMotoristaCOMPLEMENTO: TStringField
      FieldName = 'COMPLEMENTO'
      Size = 100
    end
    object QueryMotoristaRG: TStringField
      FieldName = 'RG'
    end
    object QueryMotoristaCPF: TStringField
      FieldName = 'CPF'
      EditMask = '000.000.000-00;0;_'
    end
    object QueryMotoristaCNH: TStringField
      FieldName = 'CNH'
    end
    object QueryMotoristaOBS: TStringField
      FieldName = 'OBS'
      Size = 100
    end
    object QueryMotoristaDELETADO: TSmallintField
      FieldName = 'DELETADO'
    end
    object QueryMotoristaDATALIBERACAO: TDateField
      FieldName = 'DATALIBERACAO'
    end
    object QueryMotoristaMOTIVOEXCLUSAO: TStringField
      FieldName = 'MOTIVOEXCLUSAO'
      Size = 100
    end
    object QueryMotoristaFREQUENCIARADIO: TStringField
      FieldName = 'FREQUENCIARADIO'
      Size = 50
    end
    object QueryMotoristaCODUSUARIOWEB: TIntegerField
      FieldName = 'CODUSUARIOWEB'
    end
    object QueryMotoristaCODCLIENTE: TIntegerField
      FieldName = 'CODCLIENTE'
    end
  end
  object QueryCarreta1: TZQuery
    Connection = ZConnection1
    SortedFields = 'PLACA'
    SQL.Strings = (
      'select * from veiculo'
      'where cavalo = 0;')
    Params = <>
    IndexFieldNames = 'PLACA Asc'
    Left = 120
    Top = 312
    object QueryCarreta1CODVEICULO: TIntegerField
      FieldName = 'CODVEICULO'
      Required = True
    end
    object QueryCarreta1PLACA: TStringField
      FieldName = 'PLACA'
      Size = 8
    end
    object QueryCarreta1RENAVAM: TStringField
      FieldName = 'RENAVAM'
      Size = 50
    end
    object QueryCarreta1CHASSI: TStringField
      FieldName = 'CHASSI'
      Size = 50
    end
    object QueryCarreta1ANOFAB: TSmallintField
      FieldName = 'ANOFAB'
    end
    object QueryCarreta1ANOMOD: TSmallintField
      FieldName = 'ANOMOD'
    end
    object QueryCarreta1CODMARCA: TIntegerField
      FieldName = 'CODMARCA'
    end
    object QueryCarreta1CODTIPOVEICULO: TIntegerField
      FieldName = 'CODTIPOVEICULO'
    end
    object QueryCarreta1CODMODELO: TIntegerField
      FieldName = 'CODMODELO'
    end
    object QueryCarreta1CODCOR: TIntegerField
      FieldName = 'CODCOR'
    end
    object QueryCarreta1CODMOTORISTA: TIntegerField
      FieldName = 'CODMOTORISTA'
    end
    object QueryCarreta1DELETADO: TSmallintField
      FieldName = 'DELETADO'
    end
    object QueryCarreta1CAVALO: TSmallintField
      FieldName = 'CAVALO'
    end
    object QueryCarreta1LIMITEPESO: TIntegerField
      FieldName = 'LIMITEPESO'
    end
  end
  object QueryRastreador: TZQuery
    Connection = ZConnection1
    SortedFields = 'DESCRICAO'
    BeforePost = QueryRastreadorBeforePost
    SQL.Strings = (
      'select * from rastreador')
    Params = <>
    IndexFieldNames = 'DESCRICAO Asc'
    Left = 600
    Top = 144
    object QueryRastreadorCODRASTREADOR: TIntegerField
      FieldName = 'CODRASTREADOR'
      Required = True
    end
    object QueryRastreadorDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      Size = 50
    end
    object QueryRastreadorFIXO: TSmallintField
      FieldName = 'FIXO'
    end
    object QueryRastreadorNUMERO: TStringField
      FieldName = 'NUMERO'
    end
    object QueryRastreadorPROPRIO: TSmallintField
      FieldName = 'PROPRIO'
    end
    object QueryRastreadorTELEMONITORADO: TSmallintField
      FieldName = 'TELEMONITORADO'
    end
  end
  object QueryCarreta2: TZQuery
    Connection = ZConnection1
    SortedFields = 'PLACA'
    SQL.Strings = (
      'select * from veiculo'
      'where cavalo = 0;')
    Params = <>
    IndexFieldNames = 'PLACA Asc'
    Left = 120
    Top = 360
    object IntegerField2: TIntegerField
      FieldName = 'CODVEICULO'
      Required = True
    end
    object StringField2: TStringField
      FieldName = 'PLACA'
      Size = 8
    end
    object StringField3: TStringField
      FieldName = 'RENAVAM'
      Size = 50
    end
    object StringField4: TStringField
      FieldName = 'CHASSI'
      Size = 50
    end
    object SmallintField2: TSmallintField
      FieldName = 'ANOFAB'
    end
    object SmallintField3: TSmallintField
      FieldName = 'ANOMOD'
    end
    object IntegerField3: TIntegerField
      FieldName = 'CODMARCA'
    end
    object IntegerField4: TIntegerField
      FieldName = 'CODTIPOVEICULO'
    end
    object IntegerField5: TIntegerField
      FieldName = 'CODMODELO'
    end
    object IntegerField6: TIntegerField
      FieldName = 'CODCOR'
    end
    object IntegerField7: TIntegerField
      FieldName = 'CODMOTORISTA'
    end
    object SmallintField4: TSmallintField
      FieldName = 'DELETADO'
    end
    object SmallintField5: TSmallintField
      FieldName = 'CAVALO'
    end
    object IntegerField8: TIntegerField
      FieldName = 'LIMITEPESO'
    end
  end
  object QueryOcorrencia: TZQuery
    Connection = ZConnection1
    SortedFields = 'DESCRICAO'
    SortType = stDescending
    BeforePost = QueryOcorrenciaBeforePost
    SQL.Strings = (
      'select * from ocorrencia')
    Params = <>
    IndexFieldNames = 'DESCRICAO Desc'
    Left = 608
    Top = 40
    object QueryOcorrenciaCODOCORRENCIA: TIntegerField
      FieldName = 'CODOCORRENCIA'
      Required = True
    end
    object QueryOcorrenciaDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      Size = 100
    end
    object QueryOcorrenciaDELETADO: TSmallintField
      FieldName = 'DELETADO'
    end
    object QueryOcorrenciaPARADO: TSmallintField
      FieldName = 'PARADO'
    end
    object QueryOcorrenciaINICIODESCARGA: TSmallintField
      FieldName = 'INICIODESCARGA'
    end
    object QueryOcorrenciaFINALDESCARGA: TSmallintField
      FieldName = 'FINALDESCARGA'
    end
    object QueryOcorrenciaFAZAVALIACAO: TSmallintField
      FieldName = 'FAZAVALIACAO'
    end
    object QueryOcorrenciaCODTIPOOCORRENCIA: TIntegerField
      FieldName = 'CODTIPOOCORRENCIA'
    end
  end
  object QueryGrupoRec: TZQuery
    Connection = ZConnection1
    SortedFields = 'DESCRICAO'
    SortType = stDescending
    BeforePost = QueryGrupoRecBeforePost
    OnNewRecord = QueryGrupoRecNewRecord
    SQL.Strings = (
      'select * from grupo where despesa = 0')
    Params = <>
    IndexFieldNames = 'DESCRICAO Desc'
    Left = 328
    Top = 64
    object QueryGrupoRecCODGRUPO: TIntegerField
      FieldName = 'CODGRUPO'
      Required = True
    end
    object QueryGrupoRecDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      Size = 50
    end
    object QueryGrupoRecDESPESA: TSmallintField
      FieldName = 'DESPESA'
    end
    object QueryGrupoRecDELETADO: TSmallintField
      FieldName = 'DELETADO'
    end
  end
  object QueryItemRec: TZQuery
    Connection = ZConnection1
    SortedFields = 'DESCRICAO'
    SortType = stDescending
    BeforePost = QueryItemRecBeforePost
    OnNewRecord = QueryItemRecNewRecord
    SQL.Strings = (
      'select * from item where despesa = 0')
    Params = <>
    IndexFieldNames = 'DESCRICAO Desc'
    Left = 416
    Top = 64
    object QueryItemRecCODITEM: TIntegerField
      FieldName = 'CODITEM'
      Required = True
    end
    object QueryItemRecCODGRUPO: TIntegerField
      FieldName = 'CODGRUPO'
    end
    object QueryItemRecDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      Size = 50
    end
    object QueryItemRecDESPESA: TSmallintField
      FieldName = 'DESPESA'
    end
    object QueryItemRecDELETADO: TSmallintField
      FieldName = 'DELETADO'
    end
    object QueryItemRecVALOR: TFloatField
      FieldName = 'VALOR'
    end
  end
  object QueryComboioOcorrencia: TZQuery
    Connection = ZConnection1
    SortedFields = 'CODCOMBOIOOCORRENCIA'
    AfterInsert = QueryComboioOcorrenciaAfterInsert
    AfterEdit = QueryComboioOcorrenciaAfterEdit
    BeforePost = QueryComboioOcorrenciaBeforePost
    OnNewRecord = QueryComboioOcorrenciaNewRecord
    SQL.Strings = (
      'select * from ComboioOcorrencia')
    Params = <>
    IndexFieldNames = 'CODCOMBOIOOCORRENCIA Asc'
    Left = 216
    Top = 8
    object QueryComboioOcorrenciaCODCOMBOIOOCORRENCIA: TIntegerField
      FieldName = 'CODCOMBOIOOCORRENCIA'
      Required = True
    end
    object QueryComboioOcorrenciaDATA: TDateTimeField
      FieldName = 'DATA'
    end
    object QueryComboioOcorrenciaCODCOMBOIO: TIntegerField
      FieldName = 'CODCOMBOIO'
    end
    object QueryComboioOcorrenciaCODOCORRENCIA: TIntegerField
      FieldName = 'CODOCORRENCIA'
    end
    object QueryComboioOcorrenciaCODCIDADE: TIntegerField
      FieldName = 'CODCIDADE'
    end
    object QueryComboioOcorrenciaVALOR: TFloatField
      FieldName = 'VALOR'
      DisplayFormat = '###,##0.0000'
      EditFormat = '###,##0.0000'
      currency = True
    end
    object QueryComboioOcorrenciaLOCAL: TStringField
      FieldName = 'LOCAL'
      Size = 50
    end
    object QueryComboioOcorrenciaDATADIG: TDateTimeField
      FieldName = 'DATADIG'
    end
    object QueryComboioOcorrenciaUSUARIODIG: TStringField
      FieldName = 'USUARIODIG'
    end
    object QueryComboioOcorrenciaEXPORTADO: TSmallintField
      FieldName = 'EXPORTADO'
    end
    object QueryComboioOcorrenciaALTINS: TStringField
      FieldName = 'ALTINS'
      Size = 1
    end
    object QueryComboioOcorrenciaCODITEM: TIntegerField
      FieldName = 'CODITEM'
    end
    object QueryComboioOcorrenciaTELEMONITORADO: TSmallintField
      FieldName = 'TELEMONITORADO'
    end
    object QueryComboioOcorrenciaCODLOCAL: TIntegerField
      FieldName = 'CODLOCAL'
      Required = True
    end
    object QueryComboioOcorrenciaCODVEICULO: TIntegerField
      FieldName = 'CODVEICULO'
    end
    object QueryComboioOcorrenciaDATAALT: TDateTimeField
      FieldName = 'DATAALT'
    end
    object QueryComboioOcorrenciaUSUARIOALT: TStringField
      FieldName = 'USUARIOALT'
    end
    object QueryComboioOcorrenciaCODMOTORISTA: TIntegerField
      FieldName = 'CODMOTORISTA'
    end
    object QueryComboioOcorrenciaOBS: TStringField
      FieldName = 'OBS'
      Size = 100
    end
    object QueryComboioOcorrenciaORIGEMCONTATO: TStringField
      FieldName = 'ORIGEMCONTATO'
    end
  end
  object QueryComboio2: TZQuery
    Connection = ZConnection1
    SortedFields = 'CODCOMBOIO'
    SQL.Strings = (
      
        'select c.data, c.codcomboio, cli.nome as cliente, cid.nome as ci' +
        'dade, datachegada'
      'from cliente cli, comboio c, cidade cid'
      'where c.codcliente = cli.codcliente'
      'and cid.codcidade = c.codorigem')
    Params = <>
    IndexFieldNames = 'CODCOMBOIO Asc'
    Left = 120
    Top = 264
    object QueryComboio2CODCOMBOIO: TIntegerField
      FieldName = 'CODCOMBOIO'
      Required = True
    end
    object QueryComboio2CLIENTE: TStringField
      FieldName = 'CLIENTE'
      Required = True
      Size = 50
    end
    object QueryComboio2CIDADE: TStringField
      FieldName = 'CIDADE'
      Required = True
      Size = 50
    end
    object QueryComboio2DATACHEGADA: TDateTimeField
      FieldName = 'DATACHEGADA'
    end
    object QueryComboio2DATA: TDateField
      FieldName = 'DATA'
    end
  end
  object QueryParcelaReceber: TZQuery
    Connection = ZConnection1
    SortedFields = 'DATAVENC'
    BeforePost = QueryParcelaReceberBeforePost
    SQL.Strings = (
      'select * from parcelareceber')
    Params = <>
    IndexFieldNames = 'DATAVENC Asc'
    Left = 688
    Top = 16
    object QueryParcelaReceberCODPARCELARECEBER: TIntegerField
      FieldName = 'CODPARCELARECEBER'
      Required = True
    end
    object QueryParcelaReceberCODFATURA: TIntegerField
      FieldName = 'CODFATURA'
    end
    object QueryParcelaReceberCODTRANSACAO: TIntegerField
      FieldName = 'CODTRANSACAO'
    end
    object QueryParcelaReceberDATAREC: TDateField
      FieldName = 'DATAREC'
    end
    object QueryParcelaReceberDATAVENC: TDateField
      FieldName = 'DATAVENC'
    end
    object QueryParcelaReceberVALORVENC: TFloatField
      FieldName = 'VALORVENC'
      DisplayFormat = '###,###.00'
    end
    object QueryParcelaReceberVALORREC: TFloatField
      FieldName = 'VALORREC'
      DisplayFormat = '###,###.00'
    end
  end
  object QueryRastreador2: TZQuery
    Connection = ZConnection1
    SortedFields = 'DESCRICAO'
    SQL.Strings = (
      'select * from rastreador')
    Params = <>
    IndexFieldNames = 'DESCRICAO Asc'
    Left = 592
    Top = 88
    object QueryRastreador2CODRASTREADOR: TIntegerField
      FieldName = 'CODRASTREADOR'
      Required = True
    end
    object QueryRastreador2DESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      Size = 50
    end
    object QueryRastreador2FIXO: TSmallintField
      FieldName = 'FIXO'
    end
    object QueryRastreador2NUMERO: TStringField
      FieldName = 'NUMERO'
    end
    object QueryRastreador2PROPRIO: TSmallintField
      FieldName = 'PROPRIO'
    end
  end
  object QueryParcRecBaixa: TZQuery
    Connection = ZConnection1
    SortedFields = 'DATAVENC'
    OnCalcFields = QueryParcRecBaixaCalcFields
    SQL.Strings = (
      'select p.* from parcelareceber p, Fatura F, cliente c'
      'where p.codFatura = f.codFatura'
      'and c.codcliente = f.codcliente'
      'and p.codtransacao is null'
      'and p.datavenc >= :pdataI'
      'and p.datavenc <= :pdataF'
      'and (f.codcliente = :pcodcliente or :pcodcliente = 0)')
    Params = <
      item
        DataType = ftUnknown
        Name = 'pdataI'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'pdataF'
        ParamType = ptUnknown
      end
      item
        DataType = ftInteger
        Name = 'pcodcliente'
        ParamType = ptUnknown
      end>
    IndexFieldNames = 'DATAVENC Asc'
    Left = 688
    Top = 64
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'pdataI'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'pdataF'
        ParamType = ptUnknown
      end
      item
        DataType = ftInteger
        Name = 'pcodcliente'
        ParamType = ptUnknown
      end>
    object QueryParcRecBaixaCliente: TStringField
      FieldKind = fkCalculated
      FieldName = 'Cliente'
      Calculated = True
    end
    object QueryParcRecBaixaCODPARCELARECEBER: TIntegerField
      FieldName = 'CODPARCELARECEBER'
      Required = True
    end
    object QueryParcRecBaixaCODFATURA: TIntegerField
      FieldName = 'CODFATURA'
    end
    object QueryParcRecBaixaCODTRANSACAO: TIntegerField
      FieldName = 'CODTRANSACAO'
    end
    object QueryParcRecBaixaDATAREC: TDateField
      FieldName = 'DATAREC'
    end
    object QueryParcRecBaixaDATAVENC: TDateField
      FieldName = 'DATAVENC'
    end
    object QueryParcRecBaixaVALORVENC: TFloatField
      FieldName = 'VALORVENC'
      DisplayFormat = '###,###0.00'
    end
    object QueryParcRecBaixaVALORREC: TFloatField
      FieldName = 'VALORREC'
      DisplayFormat = '###,###0.00'
    end
    object QueryParcRecBaixaCODTIPOPAGAMENTO: TIntegerField
      FieldName = 'CODTIPOPAGAMENTO'
    end
  end
  object QueryParcelaPagar: TZQuery
    Connection = ZConnection1
    SortedFields = 'DATAVENC'
    BeforePost = QueryParcelaPagarBeforePost
    SQL.Strings = (
      'select * from parcelapagar')
    Params = <>
    IndexFieldNames = 'DATAVENC Asc'
    Left = 688
    Top = 176
    object QueryParcelaPagarCODPARCELAPAGAR: TIntegerField
      FieldName = 'CODPARCELAPAGAR'
      Required = True
    end
    object QueryParcelaPagarCODTRANSACAO: TIntegerField
      FieldName = 'CODTRANSACAO'
    end
    object QueryParcelaPagarDATAVENC: TDateField
      FieldName = 'DATAVENC'
    end
    object QueryParcelaPagarDATAPAG: TDateField
      FieldName = 'DATAPAG'
    end
    object QueryParcelaPagarVALORVENC: TFloatField
      FieldName = 'VALORVENC'
      DisplayFormat = '###,###.00'
    end
    object QueryParcelaPagarVALORPAG: TFloatField
      FieldName = 'VALORPAG'
      DisplayFormat = '###,###.00'
    end
    object QueryParcelaPagarCODNOTA: TIntegerField
      FieldName = 'CODNOTA'
    end
    object QueryParcelaPagarCODTIPOPAGAMENTO: TIntegerField
      FieldName = 'CODTIPOPAGAMENTO'
    end
    object QueryParcelaPagarVALORJUROS: TFloatField
      FieldName = 'VALORJUROS'
    end
  end
  object QueryParcPagBaixa: TZQuery
    Connection = ZConnection1
    SortedFields = 'DATAVENC'
    OnCalcFields = QueryParcPagBaixaCalcFields
    SQL.Strings = (
      'select p.* from parcelapagar p, nota n, fornecedor f'
      'where p.codnota = n.codnota '
      'and f.codfornecedor = n.codfornecedor'
      'and codtransacao is null'
      'and p.datavenc >= :pdataI'
      'and p.datavenc <= :pdataF'
      'and (n.codfornecedor = :pcodfornecedor or :pcodfornecedor = 0)')
    Params = <
      item
        DataType = ftDateTime
        Name = 'pdataI'
        ParamType = ptUnknown
      end
      item
        DataType = ftDateTime
        Name = 'pdataF'
        ParamType = ptUnknown
      end
      item
        DataType = ftInteger
        Name = 'pcodfornecedor'
        ParamType = ptUnknown
      end>
    IndexFieldNames = 'DATAVENC Asc'
    Left = 688
    Top = 120
    ParamData = <
      item
        DataType = ftDateTime
        Name = 'pdataI'
        ParamType = ptUnknown
      end
      item
        DataType = ftDateTime
        Name = 'pdataF'
        ParamType = ptUnknown
      end
      item
        DataType = ftInteger
        Name = 'pcodfornecedor'
        ParamType = ptUnknown
      end>
    object QueryParcPagBaixaCODPARCELAPAGAR: TIntegerField
      FieldName = 'CODPARCELAPAGAR'
      Required = True
    end
    object QueryParcPagBaixaCODTRANSACAO: TIntegerField
      FieldName = 'CODTRANSACAO'
    end
    object QueryParcPagBaixaDATAVENC: TDateField
      FieldName = 'DATAVENC'
    end
    object QueryParcPagBaixaDATAPAG: TDateField
      FieldName = 'DATAPAG'
    end
    object QueryParcPagBaixaVALORVENC: TFloatField
      FieldName = 'VALORVENC'
      DisplayFormat = '###,###.00'
    end
    object QueryParcPagBaixaVALORPAG: TFloatField
      FieldName = 'VALORPAG'
      DisplayFormat = '###,###.00'
    end
    object QueryParcPagBaixaCODNOTA: TIntegerField
      FieldName = 'CODNOTA'
    end
    object QueryParcPagBaixaFORNECEDOR: TStringField
      FieldKind = fkCalculated
      FieldName = 'FORNECEDOR'
      Calculated = True
    end
    object QueryParcPagBaixaCODTIPOPAGAMENTO: TIntegerField
      FieldName = 'CODTIPOPAGAMENTO'
    end
    object QueryParcPagBaixaVALORJUROS: TFloatField
      FieldName = 'VALORJUROS'
    end
  end
  object QueryTransacao: TZQuery
    Connection = ZConnection1
    SortedFields = 'CODTRANSACAO'
    BeforePost = QueryTransacaoBeforePost
    SQL.Strings = (
      'select * from transacao')
    Params = <>
    IndexFieldNames = 'CODTRANSACAO Asc'
    Left = 512
    Top = 136
    object QueryTransacaoCODTRANSACAO: TIntegerField
      FieldName = 'CODTRANSACAO'
      Required = True
    end
    object QueryTransacaoDATA: TDateField
      FieldName = 'DATA'
    end
    object QueryTransacaoVALOR: TFloatField
      FieldName = 'VALOR'
      DisplayFormat = '###,###.00'
      currency = True
    end
    object QueryTransacaoCODCONTA: TIntegerField
      FieldName = 'CODCONTA'
    end
    object QueryTransacaoTIPO: TStringField
      FieldName = 'TIPO'
    end
    object QueryTransacaoDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      Size = 60
    end
    object QueryTransacaoPENDENTE: TSmallintField
      FieldName = 'PENDENTE'
    end
  end
  object QueryCheque: TZQuery
    Connection = ZConnection1
    SortedFields = 'NOMINAL'
    OnCalcFields = QueryChequeCalcFields
    BeforePost = QueryChequeBeforePost
    SQL.Strings = (
      'select * from cheque'
      'where numerocheque = -1')
    Params = <>
    IndexFieldNames = 'NOMINAL Asc'
    Left = 120
    Top = 456
    object QueryChequeCODCHEQUE: TIntegerField
      FieldName = 'CODCHEQUE'
      Required = True
    end
    object QueryChequeCODCONTA: TIntegerField
      FieldName = 'CODCONTA'
    end
    object QueryChequeDATAEMISSAO: TDateField
      FieldName = 'DATAEMISSAO'
    end
    object QueryChequeNOMINAL: TStringField
      FieldName = 'NOMINAL'
      Size = 40
    end
    object QueryChequeDATAPREVISTA: TDateField
      FieldName = 'DATAPREVISTA'
    end
    object QueryChequeVALOR: TFloatField
      FieldName = 'VALOR'
      DisplayFormat = '###,###.00'
    end
    object QueryChequeNUMEROCHEQUE: TIntegerField
      FieldName = 'NUMEROCHEQUE'
    end
    object QueryChequeCODTRANSACAO: TIntegerField
      FieldName = 'CODTRANSACAO'
    end
    object QueryChequeConta: TStringField
      FieldKind = fkCalculated
      FieldName = 'Conta'
      Calculated = True
    end
    object QueryChequeBanco: TStringField
      FieldKind = fkCalculated
      FieldName = 'Banco'
      Calculated = True
    end
  end
  object QueryConta: TZQuery
    Connection = ZConnection1
    SortedFields = 'NUMEROCONTA'
    BeforePost = QueryContaBeforePost
    SQL.Strings = (
      'select * from conta')
    Params = <>
    IndexFieldNames = 'NUMEROCONTA Asc'
    Left = 56
    Top = 464
    object QueryContaBANCO: TStringField
      FieldName = 'BANCO'
      Required = True
    end
    object QueryContaNUMEROCONTA: TStringField
      FieldName = 'NUMEROCONTA'
      Size = 10
    end
    object QueryContaTITULAR: TStringField
      FieldName = 'TITULAR'
      Size = 30
    end
    object QueryContaAGENCIA: TStringField
      FieldName = 'AGENCIA'
      Size = 7
    end
    object QueryContaLIMITE: TFloatField
      FieldName = 'LIMITE'
    end
    object QueryContaCODCONTA: TIntegerField
      FieldName = 'CODCONTA'
      Required = True
    end
    object QueryContaCODBANCO: TIntegerField
      FieldName = 'CODBANCO'
    end
  end
  object QueryChequeBaixa: TZQuery
    Connection = ZConnection1
    SortedFields = 'DESCRICAO'
    SortType = stDescending
    OnCalcFields = QueryChequeBaixaCalcFields
    SQL.Strings = (
      'select tr.* from cheque ch, transacao tr'
      'where ch.codtransacao = tr.codtransacao'
      'and tr.pendente = -1 and ch.numerocheque <> -1')
    Params = <>
    IndexFieldNames = 'DESCRICAO Desc'
    Left = 120
    Top = 405
    object QueryChequeBaixaCODTRANSACAO: TIntegerField
      FieldName = 'CODTRANSACAO'
      Required = True
    end
    object QueryChequeBaixaDATA: TDateField
      FieldName = 'DATA'
      Required = True
    end
    object QueryChequeBaixaVALOR: TFloatField
      FieldName = 'VALOR'
      Required = True
      DisplayFormat = '###,###.00'
    end
    object QueryChequeBaixaCODCONTA: TIntegerField
      FieldName = 'CODCONTA'
      Required = True
    end
    object QueryChequeBaixaTIPO: TStringField
      FieldName = 'TIPO'
      Required = True
      Size = 1
    end
    object QueryChequeBaixaDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      Size = 60
    end
    object QueryChequeBaixaPENDENTE: TSmallintField
      FieldName = 'PENDENTE'
    end
    object QueryChequeBaixaConta: TStringField
      FieldKind = fkCalculated
      FieldName = 'Conta'
      Calculated = True
    end
    object QueryChequeBaixaCheque: TStringField
      FieldKind = fkCalculated
      FieldName = 'Cheque'
      Calculated = True
    end
  end
  object ZConnectionCEP: TZConnection
    Protocol = 'firebird-1.5'
    HostName = 'LOCALHOST'
    Database = 'C:\sistemas\ger\bd\CEP.FDB'
    User = 'SYSDBA'
    Password = 'masterkey'
    Left = 32
    Top = 136
  end
  object ZSQLProcessorAux: TZSQLProcessor
    Params = <>
    Connection = ZConnection1
    Delimiter = ';'
    Left = 696
    Top = 432
  end
  object QueryContato: TZQuery
    Connection = ZConnection1
    BeforePost = QueryContatoBeforePost
    SQL.Strings = (
      'select * from contato')
    Params = <>
    Left = 216
    Top = 184
    object QueryContatoCODCONTATO: TIntegerField
      FieldName = 'CODCONTATO'
      Required = True
    end
    object QueryContatoCODCIDADE: TIntegerField
      FieldName = 'CODCIDADE'
      Required = True
    end
    object QueryContatoNOME: TStringField
      FieldName = 'NOME'
      Size = 50
    end
    object QueryContatoFONE1: TStringField
      FieldName = 'FONE1'
      EditMask = '(99)9999-9999;0'
      Size = 12
    end
    object QueryContatoFONE2: TStringField
      FieldName = 'FONE2'
      EditMask = '(99)9999-9999;0'
      Size = 12
    end
    object QueryContatoFONE3: TStringField
      FieldName = 'FONE3'
      EditMask = '(99)9999-9999;0'
      Size = 12
    end
    object QueryContatoENDERECO: TStringField
      FieldName = 'ENDERECO'
      Size = 50
    end
    object QueryContatoCODCARGO: TIntegerField
      FieldName = 'CODCARGO'
    end
    object QueryContatoBAIRRO: TStringField
      FieldName = 'BAIRRO'
      Size = 50
    end
    object QueryContatoNUMERO: TStringField
      FieldName = 'NUMERO'
    end
    object QueryContatoCEP: TStringField
      FieldName = 'CEP'
    end
    object QueryContatoCODCLIENTE: TIntegerField
      FieldName = 'CODCLIENTE'
    end
    object QueryContatoDATANASCIMENTO: TDateField
      FieldName = 'DATANASCIMENTO'
    end
  end
  object QueryLocal: TZQuery
    Connection = ZConnection1
    SortedFields = 'DESCRICAO'
    BeforePost = QueryLocalBeforePost
    SQL.Strings = (
      'select * from local')
    Params = <>
    IndexFieldNames = 'DESCRICAO Asc'
    Left = 600
    Top = 200
    object QueryLocalCODLOCAL: TIntegerField
      FieldName = 'CODLOCAL'
      Required = True
    end
    object QueryLocalDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      Size = 50
    end
    object QueryLocalDELETADO: TSmallintField
      FieldName = 'DELETADO'
    end
  end
  object QueryVeiculoParado: TZQuery
    Connection = ZConnection1
    BeforePost = QueryVeiculoParadoBeforePost
    AfterPost = QueryVeiculoParadoAfterPost
    SQL.Strings = (
      'select * from veiculoparado')
    Params = <>
    Left = 504
    Top = 200
    object QueryVeiculoParadoCODVEICULOPARADO: TIntegerField
      FieldName = 'CODVEICULOPARADO'
      Required = True
    end
    object QueryVeiculoParadoCODVEICULO: TIntegerField
      FieldName = 'CODVEICULO'
      Required = True
    end
    object QueryVeiculoParadoCODCIDADE: TIntegerField
      FieldName = 'CODCIDADE'
      Required = True
    end
    object QueryVeiculoParadoCODLOCAL: TIntegerField
      FieldName = 'CODLOCAL'
      Required = True
    end
    object QueryVeiculoParadoCODOCORRENCIA: TIntegerField
      FieldName = 'CODOCORRENCIA'
      Required = True
    end
    object QueryVeiculoParadoDATASTOP: TDateTimeField
      FieldName = 'DATASTOP'
      EditMask = '99/99/9999 99:99:99;1'
    end
    object QueryVeiculoParadoDATASTART: TDateTimeField
      FieldName = 'DATASTART'
      EditMask = '99/99/9999 99:99:99;1'
    end
  end
  object QueryAnomalia: TZQuery
    Connection = ZConnection1
    BeforePost = QueryAnomaliaBeforePost
    OnNewRecord = QueryAnomaliaNewRecord
    SQL.Strings = (
      'Select * from anomalia where anso = 0 or anso is null')
    Params = <>
    Left = 216
    Top = 256
    object QueryAnomaliaCODANOMALIA: TIntegerField
      FieldName = 'CODANOMALIA'
      Required = True
    end
    object QueryAnomaliaCODOCORRENCIA: TIntegerField
      FieldName = 'CODOCORRENCIA'
      Required = True
    end
    object QueryAnomaliaDATASTART: TDateTimeField
      FieldName = 'DATASTART'
      EditMask = '99/99/9999 99:99:99;1'
    end
    object QueryAnomaliaDATASTOP: TDateTimeField
      FieldName = 'DATASTOP'
      EditMask = '99/99/9999 99:99:99;1'
    end
    object QueryAnomaliaUSUARIOSTART: TStringField
      FieldName = 'USUARIOSTART'
      Size = 50
    end
    object QueryAnomaliaUSUARIOSTOP: TStringField
      FieldName = 'USUARIOSTOP'
      Size = 50
    end
    object QueryAnomaliaATITUDE: TStringField
      FieldName = 'ATITUDE'
      Size = 500
    end
    object QueryAnomaliaCODVEICULO: TIntegerField
      FieldName = 'CODVEICULO'
    end
    object QueryAnomaliaCODMOTORISTA: TIntegerField
      FieldName = 'CODMOTORISTA'
    end
    object QueryAnomaliaANSO: TSmallintField
      FieldName = 'ANSO'
    end
    object QueryAnomaliaCODCIDADE: TIntegerField
      FieldName = 'CODCIDADE'
    end
    object QueryAnomaliaCODCOMBOIO: TIntegerField
      FieldName = 'CODCOMBOIO'
    end
  end
  object QueryUsuarioWeb: TZQuery
    Connection = ZConnection1
    SortedFields = 'NOME'
    BeforePost = QueryUsuarioWebBeforePost
    OnNewRecord = QueryUsuarioWebNewRecord
    SQL.Strings = (
      'select * from usuarioweb')
    Params = <>
    IndexFieldNames = 'NOME Asc'
    Left = 216
    Top = 320
    object QueryUsuarioWebCODUSUARIOWEB: TIntegerField
      FieldName = 'CODUSUARIOWEB'
      Required = True
    end
    object QueryUsuarioWebNOME: TStringField
      FieldName = 'NOME'
    end
    object QueryUsuarioWebSENHA: TStringField
      FieldName = 'SENHA'
    end
    object QueryUsuarioWebFROTA: TSmallintField
      FieldName = 'FROTA'
    end
  end
  object QueryMercadoria: TZQuery
    Connection = ZConnection1
    SortedFields = 'DESCRICAO'
    BeforePost = QueryMercadoriaBeforePost
    SQL.Strings = (
      'select * from mercadoria')
    Params = <>
    IndexFieldNames = 'DESCRICAO Asc'
    Left = 600
    Top = 264
    object QueryMercadoriaCODMERCADORIA: TIntegerField
      FieldName = 'CODMERCADORIA'
      Required = True
    end
    object QueryMercadoriaDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      Size = 50
    end
  end
  object QueryAnomalia2: TZQuery
    Connection = ZConnection1
    BeforePost = QueryAnomalia2BeforePost
    OnNewRecord = QueryAnomalia2NewRecord
    SQL.Strings = (
      'Select * from anomalia'
      'where ANSO = -1')
    Params = <>
    Left = 216
    Top = 384
    object QueryAnomalia2CODANOMALIA: TIntegerField
      FieldName = 'CODANOMALIA'
      Required = True
    end
    object QueryAnomalia2DATASTART: TDateTimeField
      FieldName = 'DATASTART'
    end
    object QueryAnomalia2DATASTOP: TDateTimeField
      FieldName = 'DATASTOP'
    end
    object QueryAnomalia2USUARIOSTART: TStringField
      FieldName = 'USUARIOSTART'
      Size = 50
    end
    object QueryAnomalia2USUARIOSTOP: TStringField
      FieldName = 'USUARIOSTOP'
      Size = 50
    end
    object QueryAnomalia2CODVEICULO: TIntegerField
      FieldName = 'CODVEICULO'
    end
    object QueryAnomalia2ATITUDE: TStringField
      FieldName = 'ATITUDE'
      Size = 500
    end
    object QueryAnomalia2CODMOTORISTA: TIntegerField
      FieldName = 'CODMOTORISTA'
    end
    object QueryAnomalia2ANSO: TSmallintField
      FieldName = 'ANSO'
    end
    object QueryAnomalia2CODOCORRENCIA: TIntegerField
      FieldName = 'CODOCORRENCIA'
      Required = True
    end
    object QueryAnomalia2CODCIDADE: TIntegerField
      FieldName = 'CODCIDADE'
    end
    object QueryAnomalia2CODCOMBOIO: TIntegerField
      FieldName = 'CODCOMBOIO'
    end
  end
  object QueryLocacao: TZQuery
    Connection = ZConnection1
    BeforePost = QueryLocacaoBeforePost
    OnNewRecord = QueryLocacaoNewRecord
    SQL.Strings = (
      'select * from locacao')
    Params = <>
    Left = 328
    Top = 184
    object QueryLocacaoCODLOCACAO: TIntegerField
      FieldName = 'CODLOCACAO'
      Required = True
    end
    object QueryLocacaoDATAINSTALACAO: TDateTimeField
      FieldName = 'DATAINSTALACAO'
      EditMask = '99/99/9999 99:99:99;1'
    end
    object QueryLocacaoDATADESINSTALACAO: TDateTimeField
      FieldName = 'DATADESINSTALACAO'
      EditMask = '99/99/9999 99:99:99;1'
    end
    object QueryLocacaoDATACHEGHORIGEM: TDateTimeField
      FieldName = 'DATACHEGHORIGEM'
      EditMask = '99/99/9999 99:99:99;1'
    end
    object QueryLocacaoCODEQUIPAMENTO: TIntegerField
      FieldName = 'CODEQUIPAMENTO'
    end
    object QueryLocacaoCODCOMBOIO: TIntegerField
      FieldName = 'CODCOMBOIO'
    end
    object QueryLocacaoCODCLIENTE: TIntegerField
      FieldName = 'CODCLIENTE'
    end
    object QueryLocacaoCONTROLETRANSPORTE: TStringField
      FieldName = 'CONTROLETRANSPORTE'
    end
    object QueryLocacaoCODFATURA: TIntegerField
      FieldName = 'CODFATURA'
    end
    object QueryLocacaoVALORLOCACAO: TFloatField
      FieldName = 'VALORLOCACAO'
      DisplayFormat = '###,###.00'
    end
    object QueryLocacaoVALORCOMUNICACAO: TFloatField
      FieldName = 'VALORCOMUNICACAO'
      DisplayFormat = '###,###.00'
    end
  end
  object QueryEquipamento: TZQuery
    Connection = ZConnection1
    BeforePost = QueryEquipamentoBeforePost
    SQL.Strings = (
      'select * from equipamento')
    Params = <>
    Left = 320
    Top = 248
    object QueryEquipamentoCODEQUIPAMENTO: TIntegerField
      FieldName = 'CODEQUIPAMENTO'
      Required = True
    end
    object QueryEquipamentoNUMERO: TStringField
      FieldName = 'NUMERO'
      Size = 50
    end
    object QueryEquipamentoCODRASTREADOR: TIntegerField
      FieldName = 'CODRASTREADOR'
    end
  end
  object QueryRota: TZQuery
    Connection = ZConnection1
    BeforePost = QueryRotaBeforePost
    SQL.Strings = (
      'select * from rota')
    Params = <>
    Left = 320
    Top = 328
    object QueryRotaCODROTA: TIntegerField
      FieldName = 'CODROTA'
      Required = True
    end
    object QueryRotaDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
    end
    object QueryRotaCODCLIENTE: TIntegerField
      FieldName = 'CODCLIENTE'
    end
  end
  object QueryTipoPagamento: TZQuery
    Connection = ZConnection1
    BeforePost = QueryTipoPagamentoBeforePost
    SQL.Strings = (
      'select * from tipopagamento')
    Params = <>
    Left = 456
    Top = 296
    object QueryTipoPagamentoCODTIPOPAGAMENTO: TIntegerField
      FieldName = 'CODTIPOPAGAMENTO'
      Required = True
    end
    object QueryTipoPagamentoDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
    end
  end
  object QueryAvaliacao: TZQuery
    Connection = ZConnection1
    BeforePost = QueryAvaliacaoBeforePost
    OnNewRecord = QueryAvaliacaoNewRecord
    SQL.Strings = (
      'select * from avaliacao')
    Params = <>
    Left = 432
    Top = 400
    object QueryAvaliacaoCODAVALIACAO: TIntegerField
      FieldName = 'CODAVALIACAO'
      Required = True
    end
    object QueryAvaliacaoDATA: TDateField
      FieldName = 'DATA'
    end
    object QueryAvaliacaoTIPOAVALIACAO: TStringField
      FieldName = 'TIPOAVALIACAO'
      Size = 1
    end
    object QueryAvaliacaoCODMOTORISTA: TIntegerField
      FieldName = 'CODMOTORISTA'
    end
    object QueryAvaliacaoCODCOMBOIO: TIntegerField
      FieldName = 'CODCOMBOIO'
    end
  end
  object QueryContaRastreador: TZQuery
    Connection = ZConnection1
    BeforeEdit = QueryContaRastreadorBeforeEdit
    BeforePost = QueryContaRastreadorBeforePost
    BeforeDelete = QueryContaRastreadorBeforeDelete
    OnNewRecord = QueryContaRastreadorNewRecord
    SQL.Strings = (
      'select * from contarastreador')
    Params = <>
    Left = 328
    Top = 392
    object QueryContaRastreadorCODCONTARASTREADOR: TIntegerField
      FieldName = 'CODCONTARASTREADOR'
      Required = True
    end
    object QueryContaRastreadorOBS: TStringField
      FieldName = 'OBS'
      Size = 100
    end
    object QueryContaRastreadorDATAINICIO: TDateTimeField
      FieldName = 'DATAINICIO'
      EditMask = '99/99/9999 99:99:99;1'
    end
    object QueryContaRastreadorCODCLIENTE: TIntegerField
      FieldName = 'CODCLIENTE'
    end
    object QueryContaRastreadorCODVEICULO: TIntegerField
      FieldName = 'CODVEICULO'
    end
    object QueryContaRastreadorCODRASTREADOR: TIntegerField
      FieldName = 'CODRASTREADOR'
    end
    object QueryContaRastreadorDATAFINAL: TDateTimeField
      FieldName = 'DATAFINAL'
      EditMask = '99/99/9999 99:99:99;1'
    end
    object QueryContaRastreadorVALORTOTAL: TFloatField
      FieldName = 'VALORTOTAL'
      currency = True
    end
    object QueryContaRastreadorCODFATURA: TIntegerField
      FieldName = 'CODFATURA'
    end
  end
  object QueryTipoOperacao: TZQuery
    Connection = ZConnection1
    BeforePost = QueryTipoOperacaoBeforePost
    SQL.Strings = (
      'select * from tipoOperacao')
    Params = <>
    Left = 504
    Top = 352
    object StringField1: TStringField
      FieldName = 'DESCRICAO'
    end
    object QueryTipoOperacaoCODTIPOOPERACAO: TIntegerField
      FieldName = 'CODTIPOOPERACAO'
      Required = True
    end
  end
  object QueryExportacao: TZQuery
    Connection = ZConnection1
    BeforePost = QueryExportacaoBeforePost
    SQL.Strings = (
      'select * from exportacao')
    Params = <>
    Left = 416
    Top = 128
    object QueryExportacaoCODEXPORTACAO: TIntegerField
      FieldName = 'CODEXPORTACAO'
      Required = True
    end
    object QueryExportacaoDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
    end
    object QueryExportacaoSQL: TBlobField
      FieldName = 'SQL'
    end
    object QueryExportacaoPARAMETRO1: TStringField
      FieldName = 'PARAMETRO1'
    end
    object QueryExportacaoPARAMETRO2: TStringField
      FieldName = 'PARAMETRO2'
    end
    object QueryExportacaoPARAMETRO3: TStringField
      FieldName = 'PARAMETRO3'
    end
    object QueryExportacaoPARAMETRO4: TStringField
      FieldName = 'PARAMETRO4'
    end
    object QueryExportacaoPARAMETRO5: TStringField
      FieldName = 'PARAMETRO5'
    end
    object QueryExportacaoDESTINO: TStringField
      FieldName = 'DESTINO'
      Size = 100
    end
  end
  object QueryLocalColetaEntrega: TZQuery
    Connection = ZConnection1
    BeforePost = QueryLocalColetaEntregaBeforePost
    SQL.Strings = (
      'select * from localcoletaentrega')
    Params = <>
    Left = 416
    Top = 216
    object QueryLocalColetaEntregaCODLOCALCOLETAENTREGA: TIntegerField
      FieldName = 'CODLOCALCOLETAENTREGA'
      Required = True
    end
    object QueryLocalColetaEntregaDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      Size = 50
    end
  end
  object QueryCarreta: TZQuery
    Connection = ZConnection1
    SortedFields = 'PLACA'
    BeforePost = QueryCarretaBeforePost
    OnNewRecord = QueryCarretaNewRecord
    SQL.Strings = (
      'select * from veiculo where cavalo = 0')
    Params = <>
    IndexFieldNames = 'PLACA Asc'
    Left = 608
    Top = 336
    object QueryCarretaCODVEICULO: TIntegerField
      FieldName = 'CODVEICULO'
      Required = True
    end
    object QueryCarretaPLACA: TStringField
      FieldName = 'PLACA'
      EditMask = 'LLL-0000'
      Size = 8
    end
    object QueryCarretaRENAVAM: TStringField
      FieldName = 'RENAVAM'
      Size = 50
    end
    object QueryCarretaCHASSI: TStringField
      FieldName = 'CHASSI'
      Size = 50
    end
    object QueryCarretaANOFAB: TSmallintField
      FieldName = 'ANOFAB'
    end
    object QueryCarretaANOMOD: TSmallintField
      FieldName = 'ANOMOD'
    end
    object QueryCarretaCODMARCA: TIntegerField
      FieldName = 'CODMARCA'
    end
    object QueryCarretaCODTIPOVEICULO: TIntegerField
      FieldName = 'CODTIPOVEICULO'
    end
    object QueryCarretaCODMODELO: TIntegerField
      FieldName = 'CODMODELO'
    end
    object QueryCarretaCODCOR: TIntegerField
      FieldName = 'CODCOR'
    end
    object QueryCarretaCODMOTORISTA: TIntegerField
      FieldName = 'CODMOTORISTA'
    end
    object QueryCarretaDELETADO: TSmallintField
      FieldName = 'DELETADO'
    end
    object QueryCarretaCAVALO: TSmallintField
      FieldName = 'CAVALO'
    end
    object QueryCarretaLIMITEPESO: TIntegerField
      FieldName = 'LIMITEPESO'
    end
    object QueryCarretaCODCARRETA1: TIntegerField
      FieldName = 'CODCARRETA1'
    end
    object QueryCarretaCODCARRETA2: TIntegerField
      FieldName = 'CODCARRETA2'
    end
    object QueryCarretaCODCLIENTE: TIntegerField
      FieldName = 'CODCLIENTE'
    end
    object QueryCarretaCODCIDADE: TIntegerField
      FieldName = 'CODCIDADE'
    end
    object QueryCarretaTEMPERATURA: TFloatField
      FieldName = 'TEMPERATURA'
    end
    object QueryCarretaPARADO: TSmallintField
      FieldName = 'PARADO'
    end
    object QueryCarretaCODUSUARIOWEB: TIntegerField
      FieldName = 'CODUSUARIOWEB'
    end
    object QueryCarretaVALORMENSAL: TFloatField
      FieldName = 'VALORMENSAL'
    end
    object QueryCarretaCODRASTREADOR: TIntegerField
      FieldName = 'CODRASTREADOR'
    end
    object QueryCarretaPROPRIO: TSmallintField
      FieldName = 'PROPRIO'
    end
    object QueryCarretaDATAINCLUSAO: TDateField
      FieldName = 'DATAINCLUSAO'
    end
    object QueryCarretaCODCARRETA3: TIntegerField
      FieldName = 'CODCARRETA3'
    end
    object QueryCarretaMCT: TStringField
      FieldName = 'MCT'
    end
  end
  object QueryComboioVeiculo: TZQuery
    Connection = ZConnection1
    SortedFields = 'CODCOMBOIO'
    BeforePost = QueryComboioVeiculoBeforePost
    OnNewRecord = QueryComboioVeiculoNewRecord
    SQL.Strings = (
      'select * from comboioveiculo')
    Params = <>
    IndexFieldNames = 'CODCOMBOIO Asc'
    Left = 516
    Top = 275
    object QueryComboioVeiculoCODCOMBOIO: TIntegerField
      FieldName = 'CODCOMBOIO'
      Required = True
    end
    object QueryComboioVeiculoCODVEICULO: TIntegerField
      FieldName = 'CODVEICULO'
      Required = True
      OnValidate = QueryComboioVeiculoCODVEICULOValidate
    end
    object QueryComboioVeiculoNOTAFISCAL: TStringField
      FieldName = 'NOTAFISCAL'
      Size = 50
    end
    object QueryComboioVeiculoVALORNF: TFloatField
      FieldName = 'VALORNF'
      DisplayFormat = '###,###0.00'
      EditFormat = '###,###0.00'
    end
    object QueryComboioVeiculoNUMEROCTRC: TStringField
      FieldName = 'NUMEROCTRC'
      Size = 50
    end
    object QueryComboioVeiculoOBS: TStringField
      FieldName = 'OBS'
      Size = 100
    end
    object QueryComboioVeiculolkPlaca: TStringField
      FieldKind = fkLookup
      FieldName = 'lkPlaca'
      LookupDataSet = QueryVeiculo
      LookupKeyFields = 'CODVEICULO'
      LookupResultField = 'PLACA'
      KeyFields = 'CODVEICULO'
      Lookup = True
    end
    object QueryComboioVeiculoCODRASTREADOR: TIntegerField
      FieldName = 'CODRASTREADOR'
    end
    object QueryComboioVeiculolkRastreador: TStringField
      FieldKind = fkLookup
      FieldName = 'lkRastreador'
      LookupDataSet = QueryRastreador
      LookupKeyFields = 'CODRASTREADOR'
      LookupResultField = 'DESCRICAO'
      KeyFields = 'CODRASTREADOR'
      Lookup = True
    end
    object QueryComboioVeiculoCODCOMBOIOVEICULO: TIntegerField
      FieldName = 'CODCOMBOIOVEICULO'
      Required = True
    end
    object QueryComboioVeiculoVALORKM: TFloatField
      FieldName = 'VALORKM'
      DisplayFormat = '###,###0.00'
      EditFormat = '###,###0.00'
    end
    object QueryComboioVeiculoKM: TIntegerField
      FieldName = 'KM'
      DisplayFormat = '###,###'
      EditFormat = '###,###'
    end
    object QueryComboioVeiculoPESO: TFloatField
      FieldName = 'PESO'
      DisplayFormat = '###,###'
      EditFormat = '###,###'
    end
    object QueryComboioVeiculoQUANTIDADE: TIntegerField
      FieldName = 'QUANTIDADE'
    end
    object QueryComboioVeiculoMCT: TStringField
      FieldName = 'MCT'
      Size = 50
    end
    object QueryComboioVeiculoCODMERCADORIA: TIntegerField
      FieldName = 'CODMERCADORIA'
    end
    object QueryComboioVeiculolkMercadoria: TStringField
      FieldKind = fkLookup
      FieldName = 'lkMercadoria'
      LookupDataSet = QueryMercadoria
      LookupKeyFields = 'CODMERCADORIA'
      LookupResultField = 'DESCRICAO'
      KeyFields = 'CODMERCADORIA'
      Lookup = True
    end
    object QueryComboioVeiculoCODMOTORISTA: TIntegerField
      FieldName = 'CODMOTORISTA'
    end
    object QueryComboioVeiculolkMotorista: TStringField
      FieldKind = fkLookup
      FieldName = 'lkMotorista'
      LookupDataSet = DMSr.QueryMotorista
      LookupKeyFields = 'CODMOTORISTA'
      LookupResultField = 'NOME'
      KeyFields = 'CODMOTORISTA'
      Lookup = True
    end
    object QueryComboioVeiculoCODAJUDANTE: TIntegerField
      FieldName = 'CODAJUDANTE'
    end
    object QueryComboioVeiculolkAjudante: TStringField
      FieldKind = fkLookup
      FieldName = 'lkAjudante'
      LookupDataSet = DMSr.QueryMotorista3
      LookupKeyFields = 'CODMOTORISTA'
      LookupResultField = 'NOME'
      KeyFields = 'CODAJUDANTE'
      Lookup = True
    end
    object QueryComboioVeiculoCONSULTAMOTORISTA: TStringField
      FieldName = 'CONSULTAMOTORISTA'
    end
    object QueryComboioVeiculoKMINI: TIntegerField
      FieldName = 'KMINI'
      DisplayFormat = '###,###'
      EditFormat = '###,###'
    end
    object QueryComboioVeiculoKMFIN: TIntegerField
      FieldName = 'KMFIN'
      DisplayFormat = '###,###'
      EditFormat = '###,###'
    end
    object QueryComboioVeiculoDATAINIDESCARGA: TDateTimeField
      FieldName = 'DATAINIDESCARGA'
      EditMask = '99/99/9999 99:99:99;1'
    end
    object QueryComboioVeiculoDATAFINDESCARGA: TDateTimeField
      FieldName = 'DATAFINDESCARGA'
      EditMask = '99/99/9999 99:99:99;1'
    end
    object QueryComboioVeiculoVALORTOTAL: TFloatField
      FieldName = 'VALORTOTAL'
      currency = True
    end
    object QueryComboioVeiculoCODEXTERNO: TStringField
      FieldName = 'CODEXTERNO'
    end
  end
  object QueryDispositivoSeguranca: TZQuery
    Connection = ZConnection1
    BeforePost = QueryDispositivoSegurancaBeforePost
    SQL.Strings = (
      'select * from dispositivoseguranca')
    Params = <>
    Left = 216
    Top = 456
    object QueryDispositivoSegurancaCODDISPOSITIVOSEGURANCA: TIntegerField
      FieldName = 'CODDISPOSITIVOSEGURANCA'
      Required = True
    end
    object QueryDispositivoSegurancaDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      Size = 50
    end
  end
  object QueryCargo: TZQuery
    Connection = ZConnection1
    SortedFields = 'DESCRICAO'
    BeforePost = QueryCargoBeforePost
    SQL.Strings = (
      'select * from cargo')
    Params = <>
    IndexFieldNames = 'DESCRICAO Asc'
    Left = 304
    Top = 296
    object QueryCargoCODCARGO: TIntegerField
      FieldName = 'CODCARGO'
      Required = True
    end
    object QueryCargoDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
    end
  end
  object QueryFuncionario: TZQuery
    Connection = ZConnection1
    SortedFields = 'NOME'
    BeforePost = QueryFuncionarioBeforePost
    SQL.Strings = (
      'select * from funcionario')
    Params = <>
    IndexFieldNames = 'NOME Asc'
    Left = 384
    Top = 336
    object QueryFuncionarioCODFUNCIONARIO: TIntegerField
      FieldName = 'CODFUNCIONARIO'
      Required = True
    end
    object QueryFuncionarioRG: TStringField
      FieldName = 'RG'
    end
    object QueryFuncionarioCPF: TStringField
      FieldName = 'CPF'
    end
    object QueryFuncionarioCOMISSAO: TIntegerField
      FieldName = 'COMISSAO'
    end
    object QueryFuncionarioCELULAR: TStringField
      FieldName = 'CELULAR'
    end
    object QueryFuncionarioFONE: TStringField
      FieldName = 'FONE'
    end
    object QueryFuncionarioDATANASCIMENTO: TDateField
      FieldName = 'DATANASCIMENTO'
    end
    object QueryFuncionarioDATAADMISSAO: TDateField
      FieldName = 'DATAADMISSAO'
    end
    object QueryFuncionarioDATADEMISSAO: TDateField
      FieldName = 'DATADEMISSAO'
    end
    object QueryFuncionarioOBSDESLIGAMENTO: TBlobField
      FieldName = 'OBSDESLIGAMENTO'
    end
    object QueryFuncionarioCARTEIRATRABALHO: TStringField
      FieldName = 'CARTEIRATRABALHO'
    end
    object QueryFuncionarioPIS: TStringField
      FieldName = 'PIS'
    end
    object QueryFuncionarioCATEGORIACNH: TStringField
      FieldName = 'CATEGORIACNH'
      Size = 2
    end
    object QueryFuncionarioDATAREGISTRO: TDateField
      FieldName = 'DATAREGISTRO'
    end
    object QueryFuncionarioDELETADO: TIntegerField
      FieldName = 'DELETADO'
    end
    object QueryFuncionarioSALARIOBASE: TIntegerField
      FieldName = 'SALARIOBASE'
    end
    object QueryFuncionarioTITULOELEITOR: TStringField
      FieldName = 'TITULOELEITOR'
    end
    object QueryFuncionarioAGENCIA: TStringField
      FieldName = 'AGENCIA'
    end
    object QueryFuncionarioCONTA: TStringField
      FieldName = 'CONTA'
    end
    object QueryFuncionarioTITULAR: TStringField
      FieldName = 'TITULAR'
    end
    object QueryFuncionarioBANCO: TStringField
      FieldName = 'BANCO'
    end
    object QueryFuncionarioAPELIDO: TStringField
      FieldName = 'APELIDO'
    end
    object QueryFuncionarioFIMEXPERIENCIA: TDateField
      FieldName = 'FIMEXPERIENCIA'
    end
    object QueryFuncionarioULTIMAFERIAS: TDateField
      FieldName = 'ULTIMAFERIAS'
    end
    object QueryFuncionarioNOMEPAI: TStringField
      FieldName = 'NOMEPAI'
    end
    object QueryFuncionarioNOMEMAE: TStringField
      FieldName = 'NOMEMAE'
      Size = 18
    end
    object QueryFuncionarioTAMCALCA: TStringField
      FieldName = 'TAMCALCA'
    end
    object QueryFuncionarioTAMCAMISA: TStringField
      FieldName = 'TAMCAMISA'
    end
    object QueryFuncionarioTAMSAPATO: TStringField
      FieldName = 'TAMSAPATO'
    end
    object QueryFuncionarioCODCARGO: TIntegerField
      FieldName = 'CODCARGO'
    end
    object QueryFuncionarioCODCIDADE: TIntegerField
      FieldName = 'CODCIDADE'
    end
    object QueryFuncionarioTAMCAMISETA: TStringField
      FieldName = 'TAMCAMISETA'
    end
    object QueryFuncionarioOBS: TStringField
      FieldName = 'OBS'
      Size = 18
    end
    object QueryFuncionarioNOME: TStringField
      FieldName = 'NOME'
      Size = 100
    end
    object QueryFuncionarioENDERECO: TStringField
      FieldName = 'ENDERECO'
      Size = 100
    end
  end
  object UCZEOSConn1: TUCZEOSConn
    Connection = ZConnection1
    Left = 24
    Top = 274
  end
  object QueryFatura: TZQuery
    Connection = ZConnection1
    BeforePost = QueryFaturaBeforePost
    SQL.Strings = (
      'select * from fatura')
    Params = <>
    Left = 372
    Top = 459
    object QueryFaturaCODFATURA: TIntegerField
      FieldName = 'CODFATURA'
      Required = True
    end
    object QueryFaturaCODCONDPAG: TIntegerField
      FieldName = 'CODCONDPAG'
    end
    object QueryFaturaDATAEMISSAO: TDateField
      FieldName = 'DATAEMISSAO'
    end
    object QueryFaturaVALORISS: TFloatField
      FieldName = 'VALORISS'
      currency = True
    end
    object QueryFaturaVALORTOTAL: TFloatField
      FieldName = 'VALORTOTAL'
      currency = True
    end
    object QueryFaturaCODCLIENTE: TIntegerField
      FieldName = 'CODCLIENTE'
    end
    object QueryFaturaOBS1: TStringField
      FieldName = 'OBS1'
      Size = 100
    end
    object QueryFaturaDATAINICIO: TDateTimeField
      FieldName = 'DATAINICIO'
    end
    object QueryFaturaDATAFIM: TDateTimeField
      FieldName = 'DATAFIM'
    end
    object QueryFaturaDESCONTO: TFloatField
      FieldName = 'DESCONTO'
      currency = True
    end
    object QueryFaturaDATAVENCIMENTO: TDateField
      FieldName = 'DATAVENCIMENTO'
    end
  end
  object QueryItemChekList: TZQuery
    Connection = ZConnection1
    BeforePost = QueryItemChekListBeforePost
    SQL.Strings = (
      'select * from itemcheklist')
    Params = <>
    Left = 496
    Top = 472
    object QueryItemChekListCODITEMCHEKLIST: TIntegerField
      FieldName = 'CODITEMCHEKLIST'
      Required = True
    end
    object QueryItemChekListDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      Size = 50
    end
  end
  object QueryModeloEmail: TZQuery
    Connection = ZConnection1
    BeforePost = QueryModeloEmailBeforePost
    SQL.Strings = (
      'select * from modeloemail')
    Params = <>
    Left = 584
    Top = 440
    object QueryModeloEmailCODMODELOEMAIL: TIntegerField
      FieldName = 'CODMODELOEMAIL'
      Required = True
    end
    object QueryModeloEmailDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      Size = 50
    end
    object QueryModeloEmailCONTEUDO: TBlobField
      FieldName = 'CONTEUDO'
    end
    object QueryModeloEmailPARAMETROS: TStringField
      FieldName = 'PARAMETROS'
      Size = 50
    end
  end
end
